function vg5000vpeekvsys() as uinteger:
  asm
    call 0x009B
    ;- d - character (return)
    ;- e - attribute (return)
    end asm
  end function

